home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / cross / Avr.lha / Atmel / Asm / examples / ledtest.asm < prev    next >
Assembly Source File  |  1999-06-12  |  618b  |  34 lines
  1.  
  2.  ;***** LED Test
  3.  ; Does a binary count on one of the output ports.
  4.  ; Connect LED's to see count.
  5.  
  6.  
  7.  include "io4414.h"    
  8.  
  9.  .org 0
  10.  rjmp RESET      ;Jump to start of code.
  11.  
  12.  
  13.  ;***** Initialization
  14.  
  15. RESET:
  16.         ser     R16
  17.         out     DDRB,R16               ;PORTB = all outputs
  18.  
  19.  ; **** Data to port.
  20.  
  21. loop:   out     PORTB,R16              ;output data to PORTD
  22.         dec     R16                    
  23.  
  24.  ;**** Now wait a while to make LED changes visible.
  25.  
  26. DLY:    dec     R17      ;Short software delay (doncha just love em)
  27.     brne    DLY
  28.         dec     R18
  29.     brne    DLY
  30.  
  31.     rjmp    loop            ;repeat loop endlessly
  32.  
  33.  
  34.